ocr: HyperTerp Demo OX Eile Edit Run Window Help Ea C-HYPERTRPIGRAPHI.HTP -OX Canvas -DX procedure main var i: integer enduar clearCanvas clearConsole for i := 1 to 10 Rectangle(10 + i * 2, 10 + i * 2, 40 + i * 4, 40 + i * 4) Watch E X RoundRect(80 + i *2, 10 + i *2, 100 + i * 4, 40 + i * 4, Add Delete Edit 30 + i * 2, 30 + i *2) endFor Variable Value for i := 1 to 50 51 MoveTo(200, i * 2) LineTo(200 + i * 2, 100) endFor endProc
